home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #14
/
Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO
/
rem_acc
/
1liner15.zip
/
ONELINER.Q-A
< prev
next >
Wrap
Text File
|
1996-01-14
|
5KB
|
253 lines
:
: OneLiner v1.50 (01-14-96)
: Created by: Eric Staufer (1:374/6568)
:
DefineOutPut c:\ra\oneliner.asw
MenuCmnd 7 *C /c c:\ra\oneliner.bat
Clearscreen
ChangeColor 3 0
Display "|"
Assign 20 ---------- S, J, ·■[ OnELiNER v1.50 ]■· (Line #0W)
Assign 21
Assign 22 X
If 22 = "OFF"
Goto ASCII
EndIf
:LOOP
DisplayFile OneTop
DisplayFile OneMid
DisplayFile OneBot
:CHOICE
GetChoice AISQ 1
If 1 = ""
Quit
EndIf
If 1 = "I"
DisplayFile OneInfo
WaitEnter
Goto LOOP
EndIf
If 1 = "S"
MenuCmnd 54
Goto LOOP
EndIf
If 1 = "Q"
ClearScreen
Quit
EndIf
If 1 = "A"
DisplayFile ONEIN
Ask 45 2
If 2 = ""
Goto ABORT
EndIf
ChangeColor 7 0
DisplayFile ONECYAN
GetChoice YN 3
If 3 = "Y"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [03" 2
ClearScreen
Quit
EndIf
If 3 = "N"
DisplayFile ONECOLOR
Ask 2 4
If 4 = ""
Quit
EndIf
If 4 = "1"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [01" 2
ClearScreen
Quit
EndIf
If 4 = "2"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [02" 2
ClearScreen
Quit
EndIf
If 4 = "3"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [03" 2
ClearScreen
Quit
EndIf
If 4 = "4"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [04" 2
ClearScreen
Quit
EndIf
If 4 = "5"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [05" 2
ClearScreen
Quit
EndIf
If 4 = "6"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [06" 2
ClearScreen
Quit
EndIf
If 4 = "7"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [07" 2
ClearScreen
Quit
EndIf
If 4 = "8"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [08" 2
ClearScreen
Quit
EndIf
If 4 = "9"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [09" 2
ClearScreen
Quit
EndIf
If 4 = "10"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [0A" 2
ClearScreen
Quit
EndIf
If 4 = "11"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [0B" 2
ClearScreen
Quit
EndIf
If 4 = "12"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [0C" 2
ClearScreen
Quit
EndIf
If 4 = "13"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [0D" 2
ClearScreen
Quit
EndIf
If 4 = "14"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [0E" 2
ClearScreen
Quit
EndIf
If 4 = "15"
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C [0F" 2
ClearScreen
Quit
EndIf
Quit
EndIf
:ASCII
ClearScreen
Display "||||·■[ OneLiner v1.50 ]■· ·ASCii Mode· "
Display "|By: Eric Staufer, The Concession Stand (C) 1995-96. "
Display "||ASCii Support enhanced by Bob R."
Display "||You have the following options below: "
Display "||[A]dd a OneLiner "
Display "|[V]iew OneLiners "
Display "|[I]nfo on OneLiner "
Display "|[C]hange to ANSi "
Display "|[S]end Online Msg "
Display "|[Q]uit back to BBS "
Display "||Your Selection, W [AVISCQ]: "
GetChoice AVICSQ 23
If 23 = "V"
ClearScreen
Display "||||·■[ OneLiner v1.50 ]■· ·ASCii Mode· |"
DisplayFile OneMid
Display "|·■[Press ENTER to Continue]■· "
WaitEnter
Goto ASCII
EndIf
If 23 = "I"
ClearScreen
Display "|||||"
Display " OneLiner v1.50 - Release #4: Jan 14, 1996. |"
Display " -------------------------------------------------------------------------|"
Display "|"
Display " OneLiner was created because of I was sick of all the existing ones|"
Display " available, either they didnt go with my system's colors, or they had|"
Display " unregistered delays, beeps, or whatever else. I was sick of it.|"
Display "|"
Display " This little program is nothing more than about 7 ANSI screens, 2|"
Display " programs (IST-TRIM.EXE and ANSTRIP.COM), and a RA Questionnaire File.|"
Display "|"
Display " Created by: Eric Staufer|"
Display " The Concession Stand, 407-569-6568, 33600bps (1:374/6568)|"
Display "|"
Display " ·■[Press ENTER to Continue]■·|"
WaitEnter
Goto ASCII
EndIf
If 23 = "S"
MenuCmnd 54
Goto ASCII
EndIf
If 23 = "Q"
Quit
EndIf
If 23 = "C"
MenuCmnd 21
Goto LOOP
EndIf
If 23 = "A"
Display "|·■[ OneLiner ]■·····> "
Ask 45 2
If 2 = ""
Quit
EndIf
OutputAnswer 20
OutputAnswer "> I:00 A: " 2
OutputAnswer 21
OutputAnswer "C " 2
Quit
EndIf
:ABORT
endif
quit